Private Casting/Casting One.bin/Docs/Interview.dir/Internal_58.ls

Text File | 1997-01-22 | 1.1 KB | 38 lines

on colocarSubtitulo
  global subtitulos
  if the movieRate of sprite 18 = 0 then
    set the text of field "subtitulo" to " "
    exit
  end if
  if the movieTime of sprite 18 = 0 then
    set the text of field "subtitulo" to " "
    exit
  end if
  if the number of lines in subtitulos = 1 then
    exit
  end if
  set tiempo to the movieTime of sprite 18
  repeat with x = 2 to the number of lines in subtitulos
    if tiempo < mmssffToTicks(char 2 to 9 of line x of subtitulos) then
      exit repeat
    end if
  end repeat
  if (x = 2) and (tiempo < mmssffToTicks(char 2 to 9 of line x of subtitulos)) then
    exit
  else
    if x > 2 then
      set x to x - 1
    end if
  end if
  if the text of field "subtitulo" <> char 11 to the number of chars in line x of subtitulos of line x of subtitulos then
    set the text of field "subtitulo" to char 11 to the number of chars in line x of subtitulos of line x of subtitulos
  end if
end

on mmssffToTicks mmssff
  set minutos to value(char 1 to 2 of mmssff)
  set segundos to value(char 4 to 5 of mmssff)
  set ticks to (minutos * 3600) + (segundos * 60)
  return ticks
end